home *** CD-ROM | disk | FTP | other *** search
/ TeleMagic 4 / TeleMagic v4.0.iso / tm / data1.cab / Program_Files / TMMAIL.EXE / 0 / RCDATA / TADDRESSBOOKFORM / TADDRESSBOOKFORM.txt
Encoding:
Text File  |  1999-05-28  |  9.1 KB  |  414 lines

  1. object AddressBookForm: TAddressBookForm
  2.   Left = 282
  3.   Top = 181
  4.   Width = 664
  5.   Height = 477
  6.   HelpContext = 1508
  7.   HorzScrollBar.Visible = False
  8.   VertScrollBar.Visible = False
  9.   Caption = 'Address Book'
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Menu = AddressMenu
  16.   Position = poScreenCenter
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object hzSplitter: TSplitter
  22.     Left = 145
  23.     Top = 29
  24.     Width = 3
  25.     Height = 383
  26.     Cursor = crHSplit
  27.     Beveled = False
  28.   end
  29.   object AddressToolbar: TToolBar
  30.     Left = 0
  31.     Top = 0
  32.     Width = 656
  33.     Height = 29
  34.     ButtonHeight = 25
  35.     ButtonWidth = 26
  36.     EdgeBorders = [ebTop, ebBottom]
  37.     Flat = True
  38.     Images = ImagesForm.TMImages
  39.     TabOrder = 0
  40.     Wrapable = False
  41.     object tbClose: TToolButton
  42.       Left = 0
  43.       Top = 0
  44.       Width = 26
  45.       Height = 25
  46.       Hint = 'Close Address Book'
  47.       Caption = 'Close'
  48.       ImageIndex = 0
  49.       ParentShowHint = False
  50.       ShowHint = True
  51.       OnClick = MainFileCloseClick
  52.     end
  53.     object tbSep1: TToolButton
  54.       Left = 26
  55.       Top = 0
  56.       Width = 8
  57.       Height = 25
  58.       Caption = 'tbSep1'
  59.       ImageIndex = 9
  60.       Style = tbsSeparator
  61.     end
  62.     object tbAddCard: TToolButton
  63.       Left = 34
  64.       Top = 0
  65.       Width = 26
  66.       Height = 25
  67.       Hint = 'Add a Card'
  68.       Caption = 'tbAddCard'
  69.       ImageIndex = 1
  70.       ParentShowHint = False
  71.       ShowHint = True
  72.       OnClick = MainFileNewCardClick
  73.     end
  74.     object tbEditCard: TToolButton
  75.       Left = 60
  76.       Top = 0
  77.       Width = 26
  78.       Height = 25
  79.       Hint = 'Edit Selected Card'
  80.       Caption = 'tbEditCard'
  81.       ImageIndex = 3
  82.       ParentShowHint = False
  83.       ShowHint = True
  84.       OnClick = tbEditCardClick
  85.     end
  86.     object tbSep2: TToolButton
  87.       Left = 86
  88.       Top = 0
  89.       Width = 8
  90.       Height = 25
  91.       Caption = 'tbSep2'
  92.       ImageIndex = 3
  93.       Style = tbsSeparator
  94.     end
  95.     object tbAddGroup: TToolButton
  96.       Left = 94
  97.       Top = 0
  98.       Width = 26
  99.       Height = 25
  100.       Hint = 'Add a Group'
  101.       Caption = 'tbAddGroup'
  102.       ImageIndex = 4
  103.       ParentShowHint = False
  104.       ShowHint = True
  105.       OnClick = tbAddGroupClick
  106.     end
  107.     object tbEditGroup: TToolButton
  108.       Left = 120
  109.       Top = 0
  110.       Width = 26
  111.       Height = 25
  112.       Hint = 'Edit Selected Group'
  113.       Caption = 'tbEditGroup'
  114.       ImageIndex = 5
  115.       ParentShowHint = False
  116.       ShowHint = True
  117.       OnClick = tbEditGroupClick
  118.     end
  119.     object tbSep3: TToolButton
  120.       Left = 146
  121.       Top = 0
  122.       Width = 8
  123.       Height = 25
  124.       Caption = 'tbSep3'
  125.       ImageIndex = 6
  126.       Style = tbsSeparator
  127.     end
  128.     object tbDelete: TToolButton
  129.       Left = 154
  130.       Top = 0
  131.       Width = 26
  132.       Height = 25
  133.       Hint = 'Delete'
  134.       Caption = 'tbDelete'
  135.       ImageIndex = 6
  136.       ParentShowHint = False
  137.       ShowHint = True
  138.       OnClick = tbDeleteClick
  139.     end
  140.     object tbSep4: TToolButton
  141.       Left = 180
  142.       Top = 0
  143.       Width = 8
  144.       Height = 25
  145.       Caption = 'tbSep4'
  146.       ImageIndex = 7
  147.       Style = tbsSeparator
  148.     end
  149.     object tbPrint: TToolButton
  150.       Left = 188
  151.       Top = 0
  152.       Width = 26
  153.       Height = 25
  154.       Hint = 'Print'
  155.       Caption = 'tbPrint'
  156.       ImageIndex = 7
  157.       ParentShowHint = False
  158.       ShowHint = True
  159.       OnClick = tbPrintClick
  160.     end
  161.     object tbSep5: TToolButton
  162.       Left = 214
  163.       Top = 0
  164.       Width = 8
  165.       Height = 25
  166.       Caption = 'tbSep5'
  167.       ImageIndex = 8
  168.       Style = tbsSeparator
  169.     end
  170.     object tbHelp: TToolButton
  171.       Left = 222
  172.       Top = 0
  173.       Width = 26
  174.       Height = 25
  175.       Hint = 'Help'
  176.       Caption = 'tbHelp'
  177.       ImageIndex = 8
  178.       ParentShowHint = False
  179.       ShowHint = True
  180.       OnClick = MainHelpContentsClick
  181.     end
  182.   end
  183.   object sbAddressBook: TStatusBar
  184.     Left = 0
  185.     Top = 412
  186.     Width = 656
  187.     Height = 19
  188.     Panels = <>
  189.     SimplePanel = True
  190.     SimpleText = 'Welcome to the TeleMagic Address Book!!!'
  191.   end
  192.   object tvAddressGroups: TTreeView
  193.     Left = 0
  194.     Top = 29
  195.     Width = 145
  196.     Height = 383
  197.     ShowRoot = False
  198.     ReadOnly = True
  199.     HideSelection = False
  200.     Indent = 19
  201.     OnChange = tvAddressGroupsChange
  202.     Align = alLeft
  203.     TabOrder = 2
  204.     OnEnter = tvAddressGroupsEnter
  205.     OnKeyDown = lvAddressCardsKeyDown
  206.     PopupMenu = AddressListPopup
  207.     ParentShowHint = False
  208.     ShowHint = False
  209.   end
  210.   object AddressCardPanel: TPanel
  211.     Left = 148
  212.     Top = 29
  213.     Width = 508
  214.     Height = 383
  215.     Align = alClient
  216.     BevelOuter = bvNone
  217.     TabOrder = 3
  218.     object DirectoryTabs: TTabControl
  219.       Left = 0
  220.       Top = 362
  221.       Width = 508
  222.       Height = 21
  223.       Hint = 'Select a tab to see only those alphabetical listings'
  224.       Align = alBottom
  225.       HotTrack = True
  226.       ParentShowHint = False
  227.       ShowHint = True
  228.       TabHeight = 15
  229.       TabIndex = 0
  230.       TabOrder = 0
  231.       TabPosition = tpBottom
  232.       Tabs.Strings = (
  233.         'All'
  234.         'A'
  235.         'B'
  236.         'C'
  237.         'D'
  238.         'E'
  239.         'F'
  240.         'G'
  241.         'H'
  242.         'I'
  243.         'J'
  244.         'K'
  245.         'L'
  246.         'M'
  247.         'N'
  248.         'O'
  249.         'P'
  250.         'Q'
  251.         'R'
  252.         'S'
  253.         'T'
  254.         'U'
  255.         'V'
  256.         'W'
  257.         'X'
  258.         'Y'
  259.         'Z')
  260.       TabWidth = 17
  261.       OnChange = DirectoryTabsChange
  262.     end
  263.     object lvAddressCards: TTMListView
  264.       Left = 0
  265.       Top = 0
  266.       Width = 508
  267.       Height = 362
  268.       Align = alClient
  269.       OnDblClick = lvAddressCardsDblClick
  270.       Columns = <
  271.         item
  272.           Caption = 'Name'
  273.           Width = 150
  274.         end
  275.         item
  276.           Caption = 'E-mail Address'
  277.           Width = 150
  278.         end
  279.         item
  280.           Caption = 'Home Phone'
  281.           Width = 125
  282.         end
  283.         item
  284.           Caption = 'Business Phone'
  285.           Width = 125
  286.         end>
  287.       ReadOnly = True
  288.       HideSelection = False
  289.       MultiSelect = True
  290.       RowSelect = True
  291.       OnChange = lvAddressCardsChange
  292.       OnColumnClick = lvAddressCardsColumnClick
  293.       OnCompare = lvAddressCardsCompare
  294.       OnEnter = lvAddressCardsEnter
  295.       PopupMenu = AddressListPopup
  296.       SortType = stData
  297.       TabOrder = 1
  298.       ViewStyle = vsReport
  299.       OnKeyDown = lvAddressCardsKeyDown
  300.       SubImages = False
  301.     end
  302.   end
  303.   object AddressMenu: TMainMenu
  304.     Left = 504
  305.     object MainFile: TMenuItem
  306.       Caption = '&File'
  307.       OnClick = MainFileClick
  308.       object MainFileNew: TMenuItem
  309.         Caption = '&New'
  310.         object MainFileNewCard: TMenuItem
  311.           Caption = '&Card...'
  312.           OnClick = MainFileNewCardClick
  313.         end
  314.         object MainFileNewGroup: TMenuItem
  315.           Caption = '&Group...'
  316.           OnClick = MainFileNewGroupClick
  317.         end
  318.       end
  319.       object N1: TMenuItem
  320.         Caption = '-'
  321.       end
  322.       object MainFileDelete: TMenuItem
  323.         Caption = '&Delete'
  324.         OnClick = MainFileDeleteClick
  325.       end
  326.       object MainFileProperties: TMenuItem
  327.         Caption = '&Properties...'
  328.         OnClick = MainFilePropertiesClick
  329.       end
  330.       object MainFileSep1: TMenuItem
  331.         Caption = '-'
  332.       end
  333.       object MainFileClose: TMenuItem
  334.         Caption = '&Close'
  335.         OnClick = MainFileCloseClick
  336.       end
  337.     end
  338.     object MainView: TMenuItem
  339.       Caption = '&View'
  340.       object MainViewToolbar: TMenuItem
  341.         Caption = '&Toolbar'
  342.         Checked = True
  343.         OnClick = MainViewToolbarClick
  344.       end
  345.       object MainViewDirectoryTabs: TMenuItem
  346.         Caption = '&Directory Tabs'
  347.         Checked = True
  348.         OnClick = MainViewDirectoryTabsClick
  349.       end
  350.       object MainViewStatusBar: TMenuItem
  351.         Caption = '&Status Bar'
  352.         Checked = True
  353.         OnClick = MainViewStatusBarClick
  354.       end
  355.     end
  356.     object MainHelp: TMenuItem
  357.       Caption = '&Help'
  358.       object MainHelpContents: TMenuItem
  359.         Caption = '&Help Topics...'
  360.         OnClick = MainHelpContentsClick
  361.       end
  362.       object N2: TMenuItem
  363.         Caption = '-'
  364.       end
  365.       object AboutTeleMagicInternetMail1: TMenuItem
  366.         Caption = '&About TeleMagic Internet Mail...'
  367.         OnClick = AboutTeleMagicInternetMail1Click
  368.       end
  369.     end
  370.   end
  371.   object AddressListPopup: TPopupMenu
  372.     OnPopup = AddressListPopupPopup
  373.     Left = 180
  374.     Top = 72
  375.     object PopupNewCard: TMenuItem
  376.       Caption = 'New Card...'
  377.       OnClick = MainFileNewCardClick
  378.     end
  379.     object PopupNewGroup: TMenuItem
  380.       Caption = 'New Group...'
  381.       OnClick = MainFileNewGroupClick
  382.     end
  383.     object PopupSep1: TMenuItem
  384.       Caption = '-'
  385.     end
  386.     object PopupAddToGroup: TMenuItem
  387.       Caption = 'Add to Group...'
  388.       OnClick = PopupAddToGroupClick
  389.     end
  390.     object PopupRemoveFromGroup: TMenuItem
  391.       Caption = 'Remove from Group'
  392.       OnClick = PopupRemoveFromGroupClick
  393.     end
  394.     object PopupSep2: TMenuItem
  395.       Caption = '-'
  396.     end
  397.     object PopupSendMail: TMenuItem
  398.       Caption = 'Send Mail...'
  399.       OnClick = PopupSendMailClick
  400.     end
  401.     object PopupSep3: TMenuItem
  402.       Caption = '-'
  403.     end
  404.     object PopupDelete: TMenuItem
  405.       Caption = 'Delete'
  406.       OnClick = MainFileDeleteClick
  407.     end
  408.     object PopupProperties: TMenuItem
  409.       Caption = 'Properties...'
  410.       OnClick = MainFilePropertiesClick
  411.     end
  412.   end
  413. end
  414.